home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / master / s / RevLabel
Text File  |  1994-08-18  |  1KB  |  44 lines
  1. .bra {
  2. .key label/a
  3. .ket }
  4. ;
  5. ; $VER: RevLabel 1.1 (13.11.91)
  6. ;
  7. ;    RevLabel for Amiga.  Assigns symbolic label "label" to all
  8. ;    files in directory "RCS/#?".  Use this command to "freeze" or
  9. ;    identify major releases.
  10. ;
  11. ;    Written for AmigaWorld Tech Journal by Bryce Nesbitt.
  12. ;
  13. ;    WARNING: Amiga shell command lines start truncating at 256
  14. ;    characters.  The commented-out section deals with this
  15. ;    limitation at the cost of execution speed.
  16. ;
  17. echo "*NPreparing to mark all RCS files with label *"{label}*"."
  18. echo "Checking for locked files:*N"
  19. rlog -L -R `list RCS/#?,v quick nohead`
  20. ask "*NDo you wish to continue?"
  21.  
  22. if WARN
  23. echo "*NChecking out all files."
  24. co -u `list RCS/#?,v quick nohead`
  25.  
  26. echo "Marking all files with symbolic label {label}."
  27. rcs -N{label}: `list RCS/#?,v quick nohead`
  28. endif
  29.  
  30. ;
  31. ;echo "*NPreparing to mark all RCS files with label *"{label}*"."
  32. ;echo "Checking for locked files:*N"
  33. ;spat "rlog -L -R" RCS/#?,v
  34. ;ask "*NDo you wish to continue?"
  35. ;
  36. ;if WARN
  37. ;echo "*NChecking out all files."
  38. ;spat "co -u" RCS/#?,v
  39. ;
  40. ;echo "Marking all files with symbolic label {label}."
  41. ;spat "rcs -N{label}:" RCS/#?,v
  42. ;endif
  43. ;
  44.